Menu class structure:
~~~~~~~~~~~~~~~~~~~~~
create class Menu
  export:
  var Color   //m->Color:Menu
  var Data    //{}
  var Block   //{}
  var Avail   //{}
  var HotKeys //{}
  var Idx     //1
  var NewTask //nil
  method New=MenuNew          //o:New() --> self
  method Init=MenuInit        //o:Init() --> true
  method Password=MenuPassword//o:Password(SelfID) --> true
  method AddBar=MenuAddBar    //o:AddBar(cName,bAction,bPreBlock,bPostBlock) --> true
  method AddMenu=MenuAddMenu  //o:AddMenu(cName,nHotKey,bPreBlock,bPostBlock) --> true
  method AddItem=MenuAddItem  //o:AddItem(cName,bAction,nHotKey,bPreBlock,bPostBlock) --> true
  method AddCheck=MenuAddCheck//o:AddCheck(cName,bAction,nHotKey,bPreBlock,bPostBlock) --> true
  method AddView=MenuAddView  //o:AddView(cName,cWinName,oV,nHotK,nVk,nEk,nGk,nLk,nIk,nFk,nRk,nMk) --> true
  method PopSubLevel=MenuPopSubLevel   //o:PopSubLevel() --> true
  method DisableItem=MenuDisableItem   //o:DisableItem(nItemID,lSubMenu) --> true
  method EnableItem=MenuEnableItem     //o:EnableItem(nItemID,lSubMenu) --> true
  method GetMD=MenuGetMD               //o:GetMD(nItemID) --> object_of_MD
  method GetParentMD=MenuGetParentMD   //o:GetParentMD(nItemID) --> object_of_MD
  method Process=MenuProcess           //o:Process() --> true
  method BarEntry=MenuBarEntry         //o:BarEntry(aAccelerators) --> true
  method ItemEntry=MenuItemEntry       //o:ItemEntry(MD,CurSize,aAccelerators) --> true
  method Done=MenuDone                 //o:Done(lConfirm) --> true
  endclass